home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / MATHETES.M < prev    next >
Encoding:
Text File  |  1990-10-03  |  1.9 KB  |  47 lines
  1. MODULE Mathetest;
  2.  
  3. FROM MathLib0  IMPORT  pi,e,ln,log,ld,exp,pwrOfTen,pwrOfTwo,logar,power,sin,cos,
  4.                        tan,arcsin,arccos,arctan,sinh,cosh,tanh,artanh,sqrt,
  5.                        fraction,rad,deg,real,entier;
  6.  
  7. FROM InOut     IMPORT  FlushKbd,BusyRead,WriteLn,WriteReal,ReadReal,
  8.         WriteString;
  9.  
  10.  
  11. PROCEDURE PI;
  12.  BEGIN
  13.   WriteString ('pi         :'); WriteReal(pi,30,14);WriteLn;
  14.   WriteString ('pi-3       :'); WriteReal(fraction(pi),30,14);WriteLn;
  15.   WriteString ('e          :'); WriteReal(e,30,14);WriteLn;
  16.   WriteString ('e          :'); WriteReal(exp(1.0),30,14);WriteLn;
  17.   WriteString ('e-2        :'); WriteReal(fraction(e),30,14);WriteLn;
  18.   WriteString ('-27        :'); WriteReal(power(-3.0,3.0),30,14);WriteLn;
  19.   WriteString ('1          :'); WriteReal(ln(e),30,14);WriteLn;
  20.   WriteString ('1          :'); WriteReal(logar(e,e),30,14);WriteLn;
  21.   WriteString ('sqrt(4)    :'); WriteReal(sqrt(4.0),30,14);WriteLn;
  22.   WriteString ('4          :'); WriteReal(pwrOfTwo(2.0),30,14);WriteLn;
  23.   WriteString ('1000       :'); WriteReal(pwrOfTen(3.0),30,14);WriteLn;
  24.   WriteString ('pi/2       :'); WriteReal(pi/2.,30,14);WriteLn;
  25.   WriteString ('arccos(0)  :'); WriteReal(arccos(0.),30,14);WriteLn;
  26.   WriteString ('arcsin(1)  :'); WriteReal(arcsin(1.),30,14);WriteLn;
  27.   WriteString ('sin(pi)    :'); WriteReal(sin(pi),30,14);WriteLn;
  28.   WriteString ('sin(pi/2)  :'); WriteReal(sin(pi/2.),30,14);WriteLn;
  29.   WriteString ('sin(0)     :'); WriteReal(sin(0.),30,14);WriteLn;
  30.   WriteString ('cos(0)     :'); WriteReal(cos(0.),30,14);WriteLn;
  31.   WriteString ('cos(pi/2)  :'); WriteReal(cos(pi/2.),30,14);WriteLn;
  32.   WriteString ('cos(pi)    :'); WriteReal(cos(pi),30,14);WriteLn;
  33.  END PI;
  34.  
  35. PROCEDURE Taste;
  36.   VAR c:CHAR;
  37.   BEGIN
  38.     FlushKbd;
  39.     BusyRead (c);
  40.     IF c = 0C THEN REPEAT BusyRead (c) UNTIL c # 0C END
  41.   END Taste;
  42.  
  43. BEGIN
  44.   PI;
  45.   Taste;
  46. END Mathetest.
  47.